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-TITLE C RT = DCL VALUE CONVERSION AND EDITING SUBROUTINES 
“IDENT ybe=000" 


anata ain anna ena eee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL St oS CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESER 


& 

® 

® 

® 

® 
THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
LY Mis WITH THE F SUCH. LICENSE AND WITH THE 
INCLUSION OF ane ov CoPyRiGut: NOTICE, THIS SOFTUARE OR “ANY. OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TOANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S, HEREBY © 
TRANSFERRED. ’ 
& 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
D SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
i 

® 

® 

® 

* 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: DCL 
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: ABSTRACT: Value conversion and editing subroutines 
; AUTHOR: Peter George 
: DATE: 01-MAR-1983 
; MODIFIED BY: 
40 ; V03-006 HWS0096 Harold Schutlz 27-Jul-1984 
? 3 Fix HWS0082 to correctly handle null strings. 
J : 
\ 43 ; vO3-005 HwS0082 Harold Schultz 19-Jul-1984 
DC 44 ; Fix DCLSCNVASCBIN to not return ouccess if processing 
DC i 3 a string of all uniary operators without any numbers. 
ue ° 
i 47 ; v03-004 PCG0004 Peter George 11-Jan-1984 
D0 ; : Add lowercase to edit. 
; vO3-003 PCG0003 Peter George 15-Jul-1983 
i! : Use multi-national upcase algorithm. 
00 ; vo3-002 PG0002 Peter George 15-Jun-1983 
i! : x bug in DCLSCBTA_HEXSTR. 
3 vO3-001 PCG0001 Peter George 09-May-1983 


Add DCLSCBTA_HEXSTR. 
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DCL VALUE CONVERSION AND EDITING SUBRO 15- AX/VMS 4- 
DECLARANT TONS eee te COLT INS SUORO Teen obs 88:96:08 Lael Tac Teaece Ne acess Pree dy 


«SBTTL DECLARATIONS 
5 MACRO LIBRARY CALLS 
4 WRKDEF : DEFINE COMMAND WORK AREA 
65 DITDEF : DEFINE EDIT FLAGS 
6 CLIMSGDEF ; CLI MESSAGE DEFINITIONS 
0000 oo -PSECT DCLSZCODE BYTE,RD,NOWRT 
: $0 3 OWN STORAGE: 
58 44 OF i ENVRDX: .ASCII \opx\ : CONVERSION RADIX 
08 OA 10 99 74 sath BYTE 16,10,8 : CORRESPONDING RADIX VALUES 
96 {3 D : HEX DIGITS 
006 “ASCIL °0123456789ABCDEF" 


| 
| 
| 
CONTROL S 
| 
| 
| 
| 


VERSION AND 


J 10 
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oN 
z be «SBTTL ASCII NUMERIC VALUE CONVERSION ROUTINE 
1 ; 
? : DCLSCNVASCBIN = CONVERT ASCII STRING TO BINARY VALUE | 
! $ $ THIS ROUTINE IS CALLED TO CONVERT AN ASCII STRING TO A BINARY VALUE. | 
5 } INPUTS: | 
ig 5 ; R1 = DEFAULT RADIX INDICATOR, O=HEX,1=DECIMAL, 2=OCTAL 
16 8 : R2/R3 = QUADWORD DESCRIPTOR OF VALUE 
i 30 : OUTPUTS: 
01 9 : RO = 0 IF SUCCESSFUL, NONZERO IF FAILURE 
O16 33 ; Ri = CONVERTED BINARY VALUE 
016 95 :== 
016 %6 DCLSCNVASCBIN:: : CONVERT IN SPECIFIED RADIX 
51 pp O16 9 PUSHL 1 + SAVE R1 
51 Q D 91 98 MOVa = R2, RI : SET UP THE ARGUMENT REGISTERS 
011 30 1B 99 BSBW © OCLS TRIM : TRIM AND UPCASE THE STRING 
52. 51 7D OO1E 100 MOV = R11, R2 t RETURN STRING TO R2/R3 
51 8—ED0 00 i 101 POPL RI + RESTORE R1 
6 4 198 DCLSCNVNOEDIT:: : CONVERT NUMERIC DECIMAL RADIX 
7 D4 0024 104 CLRL = S : SAVE ROOM FOR "NUMBER SEEN’ FLAG 
6243 9F 00 $ 105 PUSHAB (R2)CR3) : SAVE ADDRESS OF END OF STRING 
00 DD 00 106 PUSHL #0 : SET NO NEGATE FLAG 
50 DO 0028 107 OVL Re RO : TEST FOR ZERO LENGTH STRING 
56 «6 13—=«00 F 1 : BEQL )=7 : IF IT IS THE NULL STRING-RETURN ZERO 
08 ak 1 00 0 10 MOVL #1,8(SP) : INIT. SEEN’ FLAG 
& 5 91 4 110 5$: CMPB ss #*A/%/, (R3) : RADIX CHANGE OPERATOR? 
12 7 #111 BNEQ 10$ : BR IF NO 
06 9 118 INCL R : SKIP OVER OPERATOR 
CO AF 03 11 LOCC  (R3)+,#3, CNVRDX : FIND RADIX SPECIFIER 
44 13 0040 114 BEQL : BR IF NONE RECOGNIZED 
51 70 7 42 115 MOVAB =(RO),R1 : SET RADIX INDICAT 
as 4 116 BRB 5$ + LOOK FOR AN OTHER SET 
63 3 91 4 117 10$:  CMPB #*A/+/,(R3) : CHECK FOR UNIARY OPERATOR OF PLUS 
13 004A 118 BEQL : BR IF YES 
63 2D 91 fo CMPB Os #*A/=/, (R3) : HOW ABOUT MINUS 
12 F 120 BNEQ 30S : BR IF NO 
6f D 121 INCL ($P) 3 NEGATE THE NEGATIVE FLAG 
D 1 ; 20$: INCL R : SKIP THE UNIARY OPERATOR 
dD 1 1 BRB 53 + LOOK FOR ANOTHER 
52 AB AF41 9A 124 30$:  MOVZBL RADIXCR1],R2 t SET ACTUAL RADIX OF CONVERSION 
7 C 125 CLRQ. oR + START WITH RESULT AND WORK VALUE OF 0 
51 63 ‘ 1 6 40$: $UBB3 #*A/0/,(R3),R1 : GET NEXT NUMBER MINUS ASCII BIAS 
1 BLSS 708 : BR IF NOT A NUMERIC CHARACTER 
09 91 1 8 CHPB ORT, #9 : WAS IT A NUMERIC DIGIT? 
8 15 1 BLEQ : BR IF YES 
1.««51—Cté«@9# 1 p CMPB = s«aR'1,#<*A/A/=*A/0/> : HEX RADIX CHARACTER? 
18 19 1 BLSS : BR IF NO = TERMINATE THE CONVERT 
1 Be 1 : SUBB  - #<<*A/A/=*A/0/>=-10>,R1 : CONVERT TO BINARY VALUE 
2 51 133 608:  CMPB $ WITH IN THE RADIX? 
10 18 134 BGEQ 36s. 70 : BR IF OUT OF THE RANGE | 
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CONVER = DCL VALUE CONVER 10N AND orting $9 SUBRO 15-SEP-1984 23:42: AX/VMS Macro v04-00 Pa 
yon 600 CONVERY BINARY YO BUDIGIY HES arSee]S8 $3:95:53 OK/MAS Macro 10400 ve 8, 
9 > «SBTTL CONVERT BINARY TO 8-DIGIT HEX 
A ; DCLSCBTA_HEX = CONVERT BINARY TO HEX STRING 
9A i 4; ? CONVERT A BINARY NUMBER TO A HEX STRING OF EXACTLY 8 DIGITS. 
9A $i ; INPUTS: 
9A i g : RO = NUMBER TO BE CONVERTED. 
9A 187 OUTPUTS: 
| @ ; R1 = LENGTH OF CONVERTED VALUE. 
9A 163: R2 = ADDRESS OF CONVERTED VALUE. 
Bh Hee 
09A 166 DCLSCBTA_HEX:: 
51 04 00 009A 16 MOVL #4,R1 ;CREATE DESCRIPTOR OF HEX STRING 
so. 8 bb BO 18 mOWY  SP,R2 
3s 10 OOA2 190 BSBB DCLSCBTA_HEXSTR [GET CONVERTED VALUE 
8E DS OOA4 171 TSTL  (SP)¢ SRESTORE THE STACK 
05 OA 1% RSB RETURN 
0 A? 174 DCLSCBTA_HEXSTR:: 
SE 51 C2 OOA7 175 SUBL R1,SP ALLOCATE SCRATCH BUFFER ON THE STACK 
51 DD OOAA 176 PUSHL 1 > SAVE INPUT LENGTH 
04 AE 62 31 28 OOAC 17 MOVC R1,(R2),4(SP) ;COPY INPUT BUFF 
5 8ED0 0081 178 POPL 5 RESTORE INPUT LENGTH 
52 F486 cA 00 0B4 179 MOVL WRK LEXPANDPTR(RIO) .R2 iM [MARK POSITION th OUTPUT BUFFER 
53 55~—Cé«C 089 180 ASHL = #1, RSTR3 DOUBLE THE NUMBER OF INPUT BYTES 
55 07 » 4 DECL RS sSTART WITH LAST BYTE OF DATA 
50 6645 06 04 EF 3 1 é 10$:  EXTZv #% #4, <SP)CR5 RO [GET SECOND NIBBLE OF BYTE 
50. FF3C CF4 A 00CS 184 MOVZBL DIGIT TABLECROJ,RO [CONVERT DIGIT TO ase 
FF32" 30 00CB 185 BSBW DCLSPOTCHAR “PUT THE CHAR IN THE OUTPUT BUFFER 
50 6645 0 0 EF OCcE 1 6 EXTZV #0,#4,(SP)CR5I,RO [GET FIRST NIBBLE OF 
50 FF2D CF4 A 0004 1 MOVZBL DIGIT TABLECROS,RO SCONVERT DIGIT TO ASCII 
Fre * 30 OODA 188 BSBW DCLSPOTCHAR :PUT THE CHAR IN THE QuTpuT BUFFER 
DF F4 Opp 189 SOBGEQ R5,10$ [BRANCH WHILE MORE DIGIT 
51 F486 CA 52 (3 FS 191 208 SUBL3 R2. »WRK_L_EXPANDPTR(R R10) RI :GET DESCRIPTOR OF RESULTANT STRING 
F486 CA 5 p 0E6 198 MOVL R2.WRK7L-EXPANDPTR(R10) ;RESET EXPANSION BUFFER POINTER 
50 51 FF ef OE 19 ASHL #-1,R17 RO [GET THE NUMBER OF INPUT BYTES 
SE 50 £0 OF 194 ADDL RO, SP [POP SCRATCH BUFFER OFF THE STACK 


m 10 
CONVERT = DCL VALUE CONVERSION AND EDITING SUBRO 15-SEP-1984 23:42: AX/VMS Macro V04-00 Page 
vires CONVERT BINARY TO ZERO SUPRESSED ASCII a $Eb=1 386 33:45:83 YOCL SRCICONVERT-MARS 1 . 
Fé ? : .SBTTL CONVERT BINARY TO ZERO SUPRESSED ASCII 
F4 § 3 CBTA_DEC = CONVERT BINARY TO ASCII BASE TEN 
Fé p ; CBTATOCT = CONVERT BINARY TO ASCII BASE EIGHT 
FG ¢ : THESE ROUTINES ARE CALLED TO CONVERT A BINARY NUMBER TO A LEFT JUSTIFIED, ZERO 
F4 ; SUPRESSED, ASCII STRING. THE RESULTANT STRING IS PLACED IN THE EXPANSION 
Fé 4 ; BUFFER ANO THE EXPANSION POINTER IS UPDATED. | 
Fé é > INPUTS 
F4 : ; RO = NUMBER TO BE CONVERTED. 
F4 10 : OUTPUTS: 
F4 1g : R1 = LENGTH OF CONVERTED VALUE. 
Ore 13 ; R2 = ADDRESS OF CONVERTED VALUE. 
OF4 15 ‘ -ENABL LSB 
Ora i3 DCLSCBTA_OCT:: :CONVERT BINARY TO ASCII BASE EIGHT 
53 08 9A OOF4 218 MOVZBL #8,R3 [SET CONVERSION RADIX 
03 11 OOF7 219 BRB 10$ ; 
OF9 0 DCLSCBTA_DEC:: SCONVERT BINARY TO ASCII BASE TEN 
53 OA 9A OOF9 1 AMOVZBL #10,R3 SET CONVERSION RADIX 
52 F486 cA DO OOFC : 10$:  MOVL  WRK-L_EXPANDPTR(R10),R2 :MARK POSITION IN BUFFER 
0 OD 101 TSTL RO [1S NUMBER NEGATIVE? 
Oc 18 01 : 4 BGEQ 158 [NO, THEN SKIP 
54 50 ce 1 5 MNEGL RO,R4 [YE$, THEN CHANGE SIGN AND SAVE VALUE 
50 2D GA 0108 3 MOVZBL #*A''~"",RO [GET NEGATIVE SIGN 
FEF2" 30 01 BSBW  DCLSPUTCHAR [PUT IT IN THE EXPANSION BUFFER 
50 54 D 105 8 MOVL SRECOVER VALUE 
Q 10 011 9 15$ BSBB_ «208 “PUT ASCII CHARACTERS INTO BUFFER 
51 £486 CA ; C3 0113 0 SUBL3 Re WRK_L_EXPANDPTR(R1O) ,R1 -GET DESCRIPTOR OF RESULTANT STRING 
F486 CA 5 60 119 : ROVL R2,WRK-L-EXPANDPTR(R10) ;RESET EXPANSION BUFFER POINTER 
11F ; 
11F 4 : RECURSIVE ROUTINE TO OUTPUT THE ASCII NUMBER, HIGH ORDER DIGITS FIRST 
IE 5 : WITHOUT ANY LEADING SPACES OR ZEROS. 
1 ps 11F $ 20$: CLRL Ri :CLEAR HIGH PART OF DIVIDEND 
51 50 50 53 121 8 EDIV. R3 R0,RO R1 SISOLATE NEXT DIGIT 
€ 51 30 ci 0126 ADDL3 = #*A'0" RI, -(SP) [CONVERT DIGIT TO ASCII AND SAVE 
g ; 12A 240 TSTL =o SANY MORE DIGITS TO CONVERT? 
120C 241 BEQL 308 [IF EQL NO 
EF 10 01 4¢ BSBB $ [CONVERT NEXT DIGIT 
0 8E 1 43 30S POPL R SRETRIEVE NEXT CHARACTER 
FECA’ 5 44 BsBW DCLSPUTCHAR [PUT CHARACTER IN EXPANSION BUFFER 
1 $ 46 
13734 .DSABL LSB 
137-348 
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CONVERT = DCL_VALUE CONVERSION AND EDITING SUBRO 15-SEP-1984 23:42: AX/VMS Macro V04-00 Page 8 
ett) eott THE UF ine 2786-1382 $3:45:83 YOCLUSRCICONVERT- MAR: 1 * & 
¥ .SBTTL EDIT THE STRING 
; DCLSEDIT = EDIT THE STRING 
4 : THIS ROUTINE IS CALLED TO EDIT THE INPUT STRING. THE RESULTANT STRING 
5 ; IS RETURNED VIA THE INPUT DESCRIPTOR. 
§ + INPUTS: 
28 : RO = EDIT FLAGS 
; Ri = LENGTH OF INPUT STRING 
: R2 = ADDRESS OF INPUT STRING 
63 3 OUTPUTS: 
65 : R1 = LENGTH OF EDITED STRING 
66 ; R2 = ADDRESS OF EDITED STRING 
68 * ' 
69 DCLSTRIM:: 
0 MOVL § #EDIT_M_UPCASE!EDIT_M_TRIM,RO ; SET UPCASE AND TRIM FLAGS 
4 BRB DCLSEBIT 


5g DCLSSQUEEZE:: 
7%4 MOVL 
75 BRB 


-43q 3 M_UPCASE!EDIT_M_COLLAPSE,RO ; SET UPCASE AND COLLAPSE FLAGS 
i 

77 DCLSUPCASE:: 
7 MOVL 


CLSEBIT 


RO PPP PS PWV AM POOL FS HS MOO FAVS 


#EDIT_M_UPCASE ,RO ; SET UPCASE FLAG 
0 DCLSEDIT:: 
1 TSTL = R11 : IS LENGTH ZERO 
: BEQL 6$ : YES, THEN DONE 
TSTL RO $ ARE NO FLAGS SET 
4 BEQL 6$ : YES, THEN DONE 
5 MOV = R3,=( SP) : SAVE R3,R4 
6 MOVL R2.R3 : COPY ADORESS OF STRING 
MOVL  R2.R4 : COPY ADDRESS OF STRING 
D 8 MOVL  R2.-(SP) : COPY ADDRESS OF STRING 
D4 ; CLRL Os = C$) : CLEAR FLAGS 
91; 
3 : IF CHARACTER IS A QUOTE THEN TOGGLE THE FLAG, AND COPY THE CHARACTER 
63 2 91 4 5s: CMPB ss #*A/"'/, (R3) : IS CHARACTER A QUOTE 
12 95 BNEQ 7% : NO, THEN BRANCH 
6€ 01 cc 3% XORL #1,(SP) : YES, TOGGLE QUOTE FLAG 
9 1 4 BRB 30$ : COPY THE CHARACTER 
0098 31 3 6$: BRw .s- 508 : ALL DONE 


? IF INSIDE QUOTES, THEN COPY THE CHARACTER 
4 ’$: BLBS (SP),30$ : IF IN QUOTES, COPY THE CHAR 
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PDPPA AAA AAR MANN NNN III EB EEE EE BE FANN AAA AAA AAA AAA AN ANA AAA 
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; IF REMOVING COMMENTS, AND COMMENT CHARACTER WAS FOUND, THEN WERE ALL DONE. 


T 
igh of | 
05 5 gi 16A ; BBC #EDIT_V UNCOMMENT ,RO, 108 ; BRANCH IF NOT IGNORING COMMENTS | 
6 1 | 1 1 CMPB OO #*A/''7,TR3) ; 1S CHARACTER A COMMENT DELIMITER | 
ac 3 1 i BEQL 428 : YES, THEN DONE | 
17 i3; 
17 14 : IF WE ARE COMPRESSING BLANKS, THEN EITHER SET THE BLANK FLAG, OR 
17 15 ; REMOVE THE CHARACTER. ALSO, SAVE THE ADDRESS OF THE FIRST BLANK 
123 318 5 IN CASE WE ARE TRIMMING BLANKS. | 
63 9 HI 17 18 jos CMPB Os #*X20, (R23) : IS CHARACTER A BLANK 
1 1% 1 BEQL «15 : YES, PROCESS IT 
63 09 91 «+017 0 CMPB 3s #09, (R3) + IS CHARACTER A TAB 
1 i; 178 1 BNEQ 208 ; NO, THEN BRANCH 
1650 02 €0 O17D é 15$ BBS #EDIT_V_COLLAPSE RO, 18$ + BRANCH IF COLLAPSING 
04 50 0 —1 0181 BBC EDIT VITRIM,RO, 168 + BRANCH IF NOT TRIMMING 
M3 6 £1 0185 4 BBC #2, (SP)718$ + REMOVE LEADING BLANKS 
07 5 1 3 189 5 16$: BBC #EOIT LV COMPRESS,RO,178 t BRANCH IF NOT COMPRESSING 
6 0 90 018) : MOVB #*X207(R3) + CONVERT SPACE OR TAB TO SPACE 
03 6€ 01 Ee 190 BBSS 4#1,(SP),18$ : IF NOT FIRST BLANK, THEN SKIP IT 
84 63 194 8 17$ MOVB (R$), (R4)+ : COPY THE CHARACTER 
3 pe 0197 9 18$ INCL RB : POINT PAST THE BLANK 
4F 0 11,—«0199 0 BRB 40$ > LOOP 
8 
0198 35 : IF WE ARE UPCASING THE STRING, THEN NOW DO SO. 
1F 50 04 3 $198 5 50$: BBC #EDIT_V_UPCASE,RO, 26$ : BRANCH IF NOT UPCASING 
61 BF 63 91 019F é CMPB ss (R'3) , BAK/a/ : CHECK LOW LIMIT OF LOW RANGE 
1F O1A3 ? BLSSU 308 : BR IF FAILED 
7A 8F 4663)—91sCO1AS5 Ss 338 CMPB) ss (R'3) , #*A/2/ : CHECK HIGH LIMIT OF LOW RANGE 
0C 18 O1A9 339 BLEQU 253 : BR IF VALID CHARACT 
EO 8F 63 91 O1AB 340 CMPB ss (R'3) , #*XEO : CHECK LOW LIMIT OF HIGH RANGE 
2c «(Oo 1F «(O1AF | 341 BLSSU 308 : BR IF FAILED 
FE BF 463 «91 +=«01B1 4g CMPB 0s (R'3) , #*XFE t CHECK HIGH LIMIT OF HIGH RANGE 
26 «1A 0185 34 BGTRU : BR IF FAILED 
63 20 BA 01B7 344 25$: BICB #*X20,(R3) : UPCASE THE CHARACTER 
21. «11 «+O1BA «345 BRB 30$ : 
018¢ 46 
9¢ 11 O1BC 347 29S: BRB 5$ 
ae 
1BE 29 : IF WE ARE LOWERCASING THE STRING, THEN NOW DO SO. | 
1850 05 €1 01 52 56S: BBC #EDIT_V_LOWERCASE RO, 308 : BRANCH IF NOT LOWERCASING 
A ar 63 51 ie 38 CHP qpnwe i CHECK LOW LIMIT OF LOW RANGE | 
SA 8F 3 91 O1C 55 CMPB 3s (R'3) , #*A/2/ : CHECK HIGH LIMIT OF LOW RANGE | 
1B O1CC 36 BLEQU : BR IF VALID CHARACT 
CO 8F es 1 Ice 3 CAPR (R3) ,#*XCO : CHECK LOW LIMIT OF HIGH RANGE 
DE 8F 91 01D4 8 CMPB R3) ,#*XDE : CHECK HIGH LIMIT OF HIGH RANGE 
1A 0108 360 BGTRU : BR IF FAILED 
63 20 88 IDA 61 27$:  BISB #*x20,(R3) : LOWERCASE THE CHARACTER 
1DD : 
| 


MF erw 


i=] 


NVERSION AND EDITING SUBRO 1736-1 38% 93:46:19 nie Macro v04-00 Page 


NG -SEP- DCL. SRCJCONVERT.MAR; 1 
4 ; COPY THE CHARACTER TO THE RESULT STRING. SUBTRACT ONE FROM THE INPUT LENGTH 
5 : AND CONTINUE. 
: $0$:  MOVB (R3)+,(R4)+ : MOVE CHARACTER 
8 BICL #2,(SP) * CLEAR BLANK 
$ BISL #4,(SP) : SET FIRST NON-BLANK SEEN 
0 MOVL R4,4(SP) : SAVE ADDR OF LAST NON-BLANK 
ft 40$:  SOBGTR R1,29$ + LOOP TILL DONE 
fo § 
fe ; GET THE RESULT STRING. DO ANY TRIMMING THAT IS NECESSARY 
id: 42s: SUBL3 = R2,R4,R1 : CALCULATE NEW LENGTH 
7 MOvG SP)+,R3 + RESTORE STACK 
78 BBC #EDIT LV TRIM,RO,45$ t BRANCH IF NOT TRIMMING 
79 SUBL3 R2,R47RT : CALCULATE SIZE AFTER TRIM 
80 45$: OVO (SP)+.R3 > RESTORE REGISTERS 
81 50$: RSB 
Hy 
8 END 
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CONVERT 
Symbol table 
CNVRDX 
DCLSCBTA 


Psect synopsis 46-SEP-1984 DCL.SRCJCONVERT.MAR; 1 


bane ener ene + 


! ; Psect synopsis A 


PSECT name Allocation PSECT No. Attributes 


ABS. 00000000 ( -) 00 ¢ 0.) NOPIC USR CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$aBS$ FFFFFFF ( 1 ¢ -) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE 
DCLSZCODE 00000200 <¢ 51 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

Quececeseuesenuesessessses 
! ; Performance indicators ! 
Phase Page faults CPU Time aatoses Time 
Initialization 11 :00: 8.03 0:90: 0885 
50 processing 87 : ° 3 3-38 
Symbol tabl t 4 6: 0:09; ‘4 $ 
able sor :00:00. ° 
sab table output , 700: 1:85 g: 200: ae 
Psect synopsis ood : 00-08 09: :00:00 “08 
Cross-reference output 0:00:00. ! :00: 1% -00 
Assembler run totals 33 0:00:06.1 00: 00:28.99 


The working set Limit was 900 pages. 

20018 bytes (40 pages! of pertys memory were used to buffer the intermediate S 99° 

There were 20 pages of symbol table space allocated to hold 267 non-local and 33 Local symbols. 
source lines were read in Pass 1, producing 14 object records in Pass 2. 

6 pages of virtual memory were used to define 11 macros. 


Seen s emer arena wranecoanreanea } 


Macro Library name Macros defined 
S3S0uAz8 FDU 0843 YSBLDOMLB.MLB; 1 
Jct. ML 8: ' 
out LIB.AL 
ESvec ie STARLET. eile: :2 
ee act “libraries) 6 
346 GETS were required to define 6 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:CONVERT/OBJ=0BJ$: CONVERT MSRC$:CONVERT/UPDATE=(ENHS: CONVERT) +EXECMLS$/LIB+LIB$:DCL/LIB+SYS$LIBRARY : SYSBLOMLB/LIB 
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